10 REM ******************************* 20 REM ** TREASURE WHEEL ** 30 REM *** BY *** 40 REM **** BOB BLACKMER **** 50 REM *** 6118 S. BRIAR BAYOU *** 60 REM ** HOUSTON, TX 77072 ** 70 REM ******************************* 80 DATA100,1000,-1,400,200,500,0,300,100,1000,TILT,400,200,500,LOSE A TURN,300 90 DATA PLAYER #,ENTER LETTER,F1 TO SPIN,F3 TO SOLVE,!!WAY TO GO!! 100 DATA PERSON,PLACE,THING,PHRASE,TITLE 110 REM **** DATA FOR PERSON **** 120 DATA ALEXANDER THE GREAT,CHRISTOPHER COLUMBUS,ASTRONAUT,POSTMASTER,MAGELLAN 130 DATA RONALD REAGAN,PETE ROSE,SYLVESTER STALLONE,JIMMY CARTER,JOHNNY CARSON 140 DATA KERMIT THE FROG,ELVIS PRESLEY,NUCLEAR SCIENTIST,REGISTERED NURSE 150 DATA DOLLY PARTON,CAPTAIN KANGAROO,JOHN GLENN,ROGER STAUBACH,JOHN BYNER 160 DATA BURT REYNOLDS 170 REM **** DATA FOR PLACE **** 180 DATA WEST GERMANY,UNITED STATES OF AMERICA,ASTRODOME,NEW ENGLAND,KENTUCKY 190 DATA HAWAIIAN ISLANDS,GREAT SMOKY MOUNTAINS,NORTH DAKOTA,CANDY STORE 200 DATA MOVIE THEATER,WEST POINT,BEAUTY PARLOR,SHOPPING MALL,BOWLING ALLEY 210 DATA MASSACHUSETTS,HOUSTON,DISNEYLAND,NIAGARA FALLS,MOUNT RUSHMORE 220 DATA CENTRAL AMERICA 230 REM **** DATA FOR THING **** 240 DATA LOOSELEAF PAPER,ASHTRAY,TELEVISION SET,COFFEE TABLE,FOUNTAIN PEN 250 DATA THREE PIECE SUIT,LAWNMOWER,COMPUTER,MAGAZINE,STEERING WHEEL 260 DATA BARBECUE GRILL,AUTOMOBILE,MOTORCYCLE,PARKING GARAGE,WATER COOLER 270 DATA HARDCOVER BOOK,COFFEE MUG,BEER STEIN,STEREO RADIO,ROLLTOP DESK 280 REM **** DATA FOR PHRASE **** 290 DATA NEVER ON SUNDAY,ONCE IN A BLUE MOON,THE EARLY BIRD GETS THE WORM 300 DATA NEW AND IMPROVED,SHARP AS A TACK 310 DATA A STITCH IN TIME SAVES NINE,SWEET LAND OF LIBERTY,PAR FOR THE COURSE 320 DATA PRETTY AS A PICTURE,NUTTY AS A FRUITCAKE,OUT ON A LIMB 330 DATA TOO CLOSE FOR COMFORT,FOLLOW THE YELLOW BRICK ROAD,WATCH YOUR STEP 340 DATA DAY IN AND DAY OUT,ONCE UPON A TIME,TO EACH HIS OWN 350 DATA A WATCHED POT NEVER BOILS,APRIL SHOWERS BRING MAY FLOWERS 360 DATA UP A CREEK WITHOUT A PADDLE 370 REM **** DATA FOR TITLE **** 380 DATA THE WALL STREET JOURNAL,SPEAKER OF THE HOUSE,GHOSTBUSTERS,HEAD FOREMAN 390 DATA MASTER OF CEREMONIES,SUPREME COURT JUSTICE,NEW YORK TIMES,RAMBO 400 DATA QUEEN OF ENGLAND,CANNONBALL RUN,INTERNAL REVENUE SERVICE,STAR WARS 410 DATA GONE WITH THE WIND,MAJOR LEAGUE BASEBALL,VICE PRESIDENT,FAMILY CIRCLE 420 DATA UNITED STATES SENATOR,GOVERNOR OF MINNESOTA,SPORTS ILLUSTRATED 430 DATA DUKE OF EARL 440 SC(3)=0:SC(4)=0:SC(5)=0:SC(6)=0:A=1 450 DIMWH(8),WH$(13),U$(26),CG$(5):FORL=1TO126:READC$:NEXT:GOSUB490:C$="" 460 RESTORE:FORL=1TO8:READWH(L):NEXT 470 FORL=1TO13:READWH$(L):NEXT:FORL=1TO5:READCG$(L):NEXT 480 GOTO540 490 CK=0:PRINT"[147]LOADING ML DATA...":FORL=828TO980:READA:POKEL,A:CK=CK+A:NEXT 500 IFCK<>20211THENPRINT"ERROR- CHECK ML DATA STATEMENTS":END 510 CK=0:PRINT"[147]LOADING SPRITE DATA":FORL=12288TO12864:READA:POKEL,A:CK=CK+A:NEXT 520 IFCK<>9993THENPRINT"ERROR- CHECK SPRITE DATA STATEMENTS":END 530 A=1:RETURN 540 V=53248:S=54272:P=192:Q=193:PR=65520:N=781:E=RND(-TI):SP$=" " 550 GOSUB1420:X=9:Y=24:U=1:SC(1)=0:SC(2)=0:FORL=1TO26:U$(L)="":NEXT 560 POKEV+39,0:POKEV+40,7:POKEV+41,7:POKEV+3,108:POKEV+5,108:POKEV+2,114 570 POKEV+4,139:POKEV,116:POKEV+1,101:POKEV+21,7 580 POKE2041,P:POKE2042,Q:POKE2040,Q+7 590 FORL=STOS+24:POKEL,0:NEXT:POKES+24,143:POKES+18,129:POKES+14,129 600 CL=FRE(0):REM **** SPIN ??? **** 610 POKEN+2,0:POKEN,14:POKEN+1,26:SYSPR:PRINT"[159]"WH$(9);A 620 POKEN+2,0:POKEN,16:POKEN+1,26:SYSPR:PRINT"[159]"WH$(11) 630 POKEN+2,0:POKEN,18:POKEN+1,26:SYSPR:PRINT"[159]"WH$(12) 640 POKE198,0:WAIT198,1:GETAN$:IFAN$<>"[133]"ANDAN$<>"[134]"THEN640 650 IFAN$=CHR$(134)THEN850 660 GOSUB1080:GOSUB910:IFB=3THENGOSUB1100:A=A+1:IFA=3THENA=1 670 IFB=3THENGOSUB830:GOTO600 680 IFB=7THENFORTT=1TO3:GOSUB810:NEXT:A=A+1:IFA=3THENA=1 690 IFB=7THEN600 700 REM **** ENTER YOUR LETTER **** 710 POKEN+2,0:POKEN,12:POKEN+1,29:SYSPR:PRINTWH$(B):GOTO720 720 POKEN+2,0:POKEN,14:POKEN+1,26:SYSPR:PRINTWH$(9);A 730 POKEN+2,0:POKEN,16:POKEN+1,25:SYSPR:PRINTWH$(10) 740 POKEN+2,0:POKEN,18:POKEN+1,28:SYSPR:INPUTA$:IFASC(A$)<65ORASC(A$)>91THEN740 750 IFLEN(A$)>1THEN740 760 GOSUB1080:L$=A$:GOSUB1000:IFW=1THENW=0:GOTO710 770 GOSUB1180:IFG=0THENGOSUB810:GOTO790 780 IFG>0THENGOSUB1100:GOSUB1230:A=A-1 790 A=A+1:IFA=3THENA=1 800 GOTO600 810 POKES,180:POKES+1,5:POKES+5,14:POKES+6,146:POKES+4,17:FORZZ=1TO300:NEXT 820 POKES+4,16:RETURN 830 POKES,180:POKES+1,5:POKES+5,14:POKES+6,146:POKES+4,17:FORZZ=255TO1STEP-1 840 POKES+1,ZZ:NEXT:POKES+4,16:RETURN 850 REM **** SOLVE PUZZLE **** 860 POKEN+2,0:POKEN,4:POKEN+1,6:SYSPR:INPUTA$ 870 IFA$=B$THENSC(A)=SC(A)+100:GOSUB1130:GOTO1270 880 IFA$<>B$THENA$="":POKEN+2,0:POKEN,4:POKEN+1,6:SYSPR:PRINTSP$SP$SP$ 890 GOSUB810:GOSUB810:A=A+1:IFA=3THENA=1 900 GOTO600 910 REM **** SPIN THE WHEEL **** 920 POKES+1,10:POKES+5,5:POKES+6,67 930 FORLO=1TOINT(RND(1)*7)+4:POKES+4,33 940 FORL=114TO89STEP-6:POKEV+2,L:POKEV+4,L+25:NEXT:P=P+2:IFP=200THENP=192:POKES+4,32 950 POKE2041,P:POKES+4,33 960 FORL=114TO89STEP-6:POKEV+4,L:POKEV+2,L+25:NEXT:Q=Q+2:IFQ=201THENQ=193:POKES+4,32 970 POKE2042,Q:NEXTLO:E=INT(RND(1)*7)+3:FORL=1TOE:GOSUB990:SYS828:NEXT 980 B=PEEK(684)-191:RETURN 990 POKES+1,10:POKES+5,5:POKES+6,67:POKES+4,33:POKES+4,32:RETURN 1000 REM **** USED LETTERS **** 1010 T=1 1020 IFU$(T)=L$THENW=1:RETURN 1030 IFU$(T)<>L$THENT=T+1:IFT=27THEN1050 1040 GOTO1020 1050 U$(U)=L$:U=U+1:POKEN+2,0:POKEN,X:POKEN+1,Y:SYSPR:PRINTL$:Y=Y+1:IFY=37THENX=10:Y=24 1060 IFX=10ANDY=37THENEND 1070 RETURN 1080 REM **** CLEAR PLAYER AREA **** 1090 FORL=12TO18STEP2:POKEN+2,0:POKEN,L:POKEN+1,24:SYSPR:PRINTSP$:NEXT:RETURN 1100 REM **** PLAYERS SCORE **** 1110 FORL=1TOG:SC(A)=SC(A)+WH(PEEK(684)-191):NEXT 1120 IFB=3THENSC(A)=0 1130 IFA=1THENPOKEN+2,0:POKEN,21:POKEN+1,32:SYSPR:PRINT" " 1140 IFA=1THENPOKEN+2,0:POKEN,21:POKEN+1,32:SYSPR:PRINTSC(A) 1150 IFA=2THENPOKEN+2,0:POKEN,23:POKEN+1,32:SYSPR:PRINT" " 1160 IFA=2THENPOKEN+2,0:POKEN,23:POKEN+1,32:SYSPR:PRINTSC(A) 1170 RETURN 1180 YY=8:G=0:PRINT"[159]":FORL=1TOLEN(B$):K$=MID$(B$,L,1) 1190 IFL$=K$THENPOKEN+2,0:POKEN,2:POKEN+1,YY:SYSPR:PRINTL$:GOSUB1220:YY=YY+1:G=G+1:NEXT 1200 IFL$<>K$THENYY=YY+1:NEXT 1210 RETURN 1220 POKES+1,129:POKES+5,9:POKES+6,5:POKES+4,17:FORZZ=1TO300:NEXT:POKES+4,16:RETURN 1230 K=1112:L=1:REM * LETTERS FILLED? * 1240 IFPEEK(K)=32ANDMID$(B$,L,1)<>" "THENRETURN 1250 K=K+1:L=L+1:IFL>LEN(B$)THENSC(A)=SC(A)+100:GOTO1270 1260 GOTO1240 1270 PRINT"[147]"TAB(11)"PUZZLE IS SOLVED":PRINTTAB(12)WH$(13):PRINT""TAB(11)WH$(9)A"WINS!" 1280 IFA=1THENSC(3)=SC(3)+1:SC(5)=SC(5)+SC(1) 1290 IFA=2THENSC(4)=SC(4)+1:SC(6)=SC(6)+SC(2) 1300 POKE53269,0 1310 PRINT""TAB(8)"GAMES WON[146]"TAB(19)"TOTAL POINTS[146]" 1320 PRINT""TAB(4);WH$(9)"1:"SC(3)TAB(25)SC(5) 1330 PRINT""TAB(4);WH$(9)"2:"SC(4)TAB(25)SC(6) 1340 IFSC(3)+SC(4)=10THENPRINT""TAB(11)"ANOTHER SET (Y/N)?":CP=1:GOTO1360 1350 PRINT""TAB(11)"PLAY AGAIN (Y/N)?" 1360 FORL=10TO150STEP10:POKES,180:POKES+1,L:POKES+5,14:POKES+6,146:POKES+4,17 1370 FORZZ=200TO225:POKES+1,ZZ:NEXT:NEXT:POKES+4,16 1380 POKE198,0:WAIT198,1:GETB$:IFB$<>"Y"ANDB$<>"N"THEN1380 1390 IFCP=1ANDB$="Y"THENPOKE53269,0:RUN 1400 IFB$="Y"THENPOKE53269,0:RESTORE:GOTO460 1410 END 1420 PRINT"[147]" 1430 PRINTTAB(7)"[144][175][175][175][175][175][175][175][175][175][175][175][175]" 1440 PRINTTAB(6)"[158][169] [146]  [223][146] [159]USED LETTERS" 1450 PRINTTAB(5)"[158][169] [146] [158] [223][146] [144][195][195][195][195][195][195][195][195][195][195][195][195][195]" 1460 PRINTTAB(4)"[158][169] [146][144] [158] [223]" 1470 PRINTTAB(3)"[158][169] [146][169] [158][146][223] [223]" 1480 PRINTTAB(3)"[158] [146][169]  [158][146][223] [146][144] [195][195][195][195][195][195][195][195][195][195][195][195][195]" 1490 PRINTTAB(3)"[158]   [158] " 1500 PRINTTAB(3)"[158]  [144][146][213][201] [158] " 1510 PRINTTAB(3)"[158]  [144][146][202][203] [158] " 1520 PRINTTAB(3)"[158]   [158] " 1530 PRINTTAB(3)"[158] [223]  [158][169] " 1540 PRINTTAB(3)"[158][223] [223] [158][169] [146][169]" 1550 PRINTTAB(4)"[158][223] [146][169]" 1560 PRINTTAB(5)"[158][223] CATEGORY [146][169]" 1570 PRINTTAB(6)"[158][223] [205][206] [146][169]" 1580 PRINTTAB(7)"[144][176][195][195][195][195][195][195][195][195][195][195][174] [159]"WH$(9)"1:":PRINTTAB(7)"[144][194] [194]" 1590 PRINTTAB(7)"[144][173][195][195][195][195][195][195][195][195][195][195][189] [159]"WH$(9)"2:" 1600 Z=INT(RND(1)*5)+1:POKEN+2,0:POKEN,22:POKEN+1,10:SYSPR:PRINT"[159]"CG$(Z) 1610 K=Z-1:IFK=0THENFORL=1TOINT(RND(1)*20)+1:READB$:NEXT:YY=8:GOTO1630 1620 FORL=1TOK*20:READB$:NEXT:FORL=1TOINT(RND(1)*20)+1:READB$:NEXT:YY=8 1630 K=LEN(B$):FORL=1TOK 1640 IFMID$(B$,L,1)<>" "THENPOKEN+2,0:POKEN,3:POKEN+1,YY:SYSPR:PRINT"[144]-":YY=YY+1:NEXT:GOTO1660 1650 POKEN+2,0:POKEN,3:POKEN+1,YY:PRINT" ":YY=YY+1:NEXT 1660 RETURN 1670 REM **** ML DATA **** 1680 DATA 162,115,160,140,142,2,208,140,4,208,136,202,224,90,208,9 1690 DATA 202,202,202,142,2,208,76,91,3,32,182,3,76,64,3,238 1700 DATA 249,7,238,249,7,173,249,7,201,200,208,5,169,192,141,249 1710 DATA 7,173,27,212,201,128,16,56,162,115,160,140,142,4,208,140 1720 DATA 2,208,136,202,224,90,208,3,76,141,3,32,182,3,76,120 1730 DATA 3,202,202,202,142,4,208,238,250,7,238,250,7,173,250,7 1740 DATA 201,201,208,5,169,193,141,250,7,173,249,7,141,172,2,96 1750 DATA 173,250,7,141,172,2,96,234,234,234,169,3,141,170,2,169 1760 DATA 255,141,168,2,206,168,2,173,168,2,201,0,208,246,206,170 1770 DATA 2,173,170,2,201,0,208,231,96 1780 REM **** SPRITE DATA **** 1790 DATA 0,16,0,48,16,12,0,80,0,0,16,0,0,16,0,0,16,0,0,84,0,0,0,0 1800 DATA 0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0 1810 DATA 1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,0,0,48,16,12,0,80 1820 DATA 0,0,16,0,0,16,0,0,84,0,0,0,0,0,84,0,1,1,0,1,1,0,0,84 1830 DATA 0,0,0,0,0,84,0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0,1,1 1840 DATA 0,1,1,0,0,84,0,0,0,0,0,48,84,12,0,16,0,0,16,0,0,16,0,0 1850 DATA 0,0,0,40,0,0,16,0,0,16,0,0,40,0,0,0,0,0,64,0,0,64,0,0 1860 DATA 64,0,0,84,0,0,0,0,0,84,0,0,16,0,0,16,0,0,16,0,0,0,0,0 1870 DATA 0,4,0,48,20,12,0,36,0,0,132,0,1,4,0,1,85,0,0,4,0,0,0,0 1880 DATA 0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0 1890 DATA 1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,40,0,48,130,12,0,2 1900 DATA 0,0,4,0,0,40,0,0,128,0,1,85,0,0,0,0,0,84,0,1,1,0,1,1 1910 DATA 0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1 1920 DATA 0,1,1,0,0,84,0,0,0,170,0,48,128,12,0,168,0,0,2,0,0,2,0,0 1930 DATA 130,0,0,84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0 1940 DATA 84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0 1950 DATA 133,74,149,132,72,16,132,74,148,132,64,144,132,64,144,165 1960 DATA 74,149,0,0,0,0,40,0,0,68,0,0,170,0,0,130,0,0,130,0,0,130,0,0 1970 DATA 0,0,170,74,145,34,72,153,34,73,21,34,74,21,34,73 1980 DATA 19,33,136,145,0,0,0,0,0,170,0,49,1,12,0,1,0,0,21,0,0,1,0,1 1990 DATA 1,0,0,170,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0 2000 DATA 84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0 2010 DATA 0,126,0,0,60,0,0,60,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0 2020 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 2030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,44